   4 .NUMBER MATCH
   5 .BY SCOTT WALPOLE
  10 clear ;C=0;NT=0;BC=249;FC=7
  20 box 0,0,40,40,1
  30 box 0,0,30,30,2
  40 for A=1to 50
  50 B=rnd (9)
  60 CX=0;CY=0;print #1,B
  70 for D=5to -5step -1
  80 G=0
  90 if &(23)=8G=1;goto 200
 100 if &(22)=8G=2;goto 200
 110 if &(21)=8G=3;goto 200
 120 if &(23)=4G=4;goto 200
 130 if &(22)=4G=5;goto 200
 140 if &(21)=4G=6;goto 200
 150 if &(23)=2G=7;goto 200
 160 if &(22)=2G=8;goto 200
 170 if &(21)=2G=9;goto 200
 180 if D=-5goto 220
 190 next D
 200 if G#Bgoto 80
 220 C=C+D
 250 CX=-30;CY=-32;print "SCOREright ",#2,C
 260 if A=50goto 300
 270 next A
 300 clear ;print "YOUR FINAL SCOREright ",#2,C
:return ;run 
